home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / PIELOGO.ARJ / 3DVID.INC next >
Text File  |  1991-08-06  |  4KB  |  195 lines

  1.  
  2. vgmode    equ    010h
  3. ;vgmode    equ    00dh
  4. ;vgmode    equ    81h
  5. IF vgmode EQ 81h
  6. lconst    equ    bpl+2000h
  7. ENDIF
  8. IF vgmode NE 81h
  9. lconst    equ    bpl
  10. ENDIF
  11.  
  12.  
  13.     IF vgmode EQ 10h
  14.       vgseg    equ    0a000h
  15.       bpl    equ    80
  16.       boffs    equ    3
  17.       vxsiz    equ    640
  18.       vysiz    equ    350
  19.       nilns    equ    149
  20.       pgadr0 equ    0
  21.       pgadr1 equ    7e00h
  22.       gfxmin    equ    8
  23.       gfymin    equ    4
  24.       gfxmax    equ    631
  25.       gfymax    equ    199
  26.       gfxsz        equ    gfxmax-gfxmin
  27.       gfysz        equ    gfymax-gfymin
  28.       gfxpln    equ    300
  29.       gfypln    equ    200
  30.       gfxctr    equ    (gfxmin+gfxmax)/2
  31.       gfyctr    equ    (gfymin+gfymax)/2
  32.       gfmnb        equ    gfymin*bpl+(gfxmin/8)
  33.       gfmxb        equ    gfymax*bpl
  34.  
  35.       gtxmin    equ    168
  36.       gtymin    equ    254
  37.       gtxmax    equ    471
  38.       gtymax    equ    344
  39.       gtxsz        equ    gtxmax-gtxmin
  40.       gtysz        equ    gtymax-gtymin
  41.       gtxpln    equ    150
  42.       gtypln    equ    100
  43.       gtxctr    equ    (gtxmin+gtxmax+1)/2
  44.       gtyctr    equ    (gtymin+gtymax+1)/2
  45.       gtmnb        equ    gtymin*bpl+(gtxmin/8)
  46.       gtmxb        equ    gtymax*bpl
  47.  
  48.       gfsxmin    equ    8
  49.       gfsymin    equ    4
  50.       gfsxmax    equ    631
  51.       gfsymax    equ    345
  52.       gfsxsz        equ    gfsxmax-gfsxmin
  53.       gfsysz        equ    gfsymax-gfsymin
  54.       gfsxpln    equ    300
  55.       gfsypln    equ    200
  56.       gfsxctr    equ    (gfsxmin+gfsxmax)/2
  57.       gfsyctr    equ    (gfsymin+gfsymax)/2
  58.       gfsmnb        equ    gfsymin*bpl+(gfsxmin/8)
  59.       gfsmxb        equ    gfsymax*bpl
  60.  
  61. mgwins  macro    
  62. gwinf    dw    gfxmin,gfymin
  63.     dw    gfxmax,gfymax
  64.     dw    gfxsz,gfysz
  65.     dw    gfxpln,gfypln
  66.     dw    gfxctr,gfyctr
  67.     dw    gfmnb,gfmxb
  68.  
  69. gwint    dw    gtxmin,gtymin
  70.     dw    gtxmax,gtymax
  71.     dw    gtxsz,gtysz
  72.     dw    gtxpln,gtypln
  73.     dw    gtxctr,gtyctr
  74.     dw    gtmnb,gtmxb
  75. ;    8,4,631,199,622,193,300,200,320,102,4*80,199*80
  76. ;    168,254,471,344,303,95,150,100,320,297,254*80,344*80
  77. gwinfs    dw    gfsxmin,gfsymin
  78.     dw    gfsxmax,gfsymax
  79.     dw    gfsxsz,gfsysz
  80.     dw    gfsxpln,gfsypln
  81.     dw    gfsxctr,gfsyctr
  82.     dw    gfsmnb,gfsmxb
  83.       endm
  84.     ENDIF
  85.     IF vgmode EQ 0dh
  86.       vgseg    equ    0a000h
  87.       bpl    equ    40
  88.       boffs    equ    3
  89.       vxsiz    equ    320
  90.       vysiz    equ    200
  91.       pgadr0 equ    0
  92.       pgadr1 equ    7e00h
  93.       gfxmin    equ    8
  94.       gfymin    equ    4
  95.       gfxmax    equ    315
  96.       gfymax    equ    114
  97.       gfxsz        equ    gfxmax-gfxmin
  98.       gfysz        equ    gfymax-gfymin
  99.       gfxpln    equ    150
  100.       gfypln    equ    114
  101.       gfxctr    equ    (gfxmin+gfxmax)/2
  102.       gfyctr    equ    (gfymin+gfymax)/2
  103.       gfmnb        equ    gfymin*bpl+(gfxmin/8)
  104.       gfmxb        equ    gfymax*bpl
  105.  
  106.       nilns    equ    vysiz-gfymax-1
  107.  
  108.       gtxmin    equ    88
  109.       gtymin    equ    145
  110.       gtxmax    equ    236
  111.       gtymax    equ    198
  112.       gtxsz        equ    gtxmax-gtxmin
  113.       gtysz        equ    gtymax-gtymin
  114.       gtxpln    equ    75
  115.       gtypln    equ    57
  116.       gtxctr    equ    (gtxmin+gtxmax)/2
  117.       gtyctr    equ    (gtymin+gtymax)/2
  118.       gtmnb        equ    gtymin*bpl+(gtxmin/8)
  119.       gtmxb        equ    gtymax*bpl
  120.  
  121. mgwins  macro    
  122. gwinf    dw    gfxmin,gfymin
  123.     dw    gfxmax,gfymax
  124.     dw    gfxsz,gfysz
  125.     dw    gfxpln,gfypln
  126.     dw    gfxctr,gfyctr
  127.     dw    gfmnb,gfmxb
  128.  
  129. gwint    dw    gtxmin,gtymin
  130.     dw    gtxmax,gtymax
  131.     dw    gtxsz,gtysz
  132.     dw    gtxpln,gtypln
  133.     dw    gtxctr,gtyctr
  134.     dw    gtmnb,gtmxb
  135.  
  136. ;    8,4,315,144,311,110,300,200,160,72,4*80,144*80
  137. ;    88,174,236,198,303,95,150,100,160,186,174*80,198*80
  138.       endm
  139.     ENDIF
  140.  
  141. IF    vgmode EQ 81h
  142.       vgseg    equ    0b000h
  143.       bpl    equ    90
  144.       boffs    equ    3
  145.       vxsiz    equ    720
  146.       vysiz    equ    348
  147.       nilns    equ    149
  148.       pgadr0 equ    0
  149.       pgadr1 equ    7e00h
  150.       gfxmin    equ    8
  151.       gfymin    equ    4
  152.       gfxmax    equ    712
  153.       gfymax    equ    199
  154.       gfxsz        equ    gfxmax-gfxmin
  155.       gfysz        equ    gfymax-gfymin
  156.       gfxpln    equ    338
  157.       gfypln    equ    200
  158.       gfxctr    equ    (gfxmin+gfxmax)/2
  159.       gfyctr    equ    (gfymin+gfymax)/2
  160.       gfmnb        equ    gfymin*bpl+(gfxmin/8)
  161.       gfmxb        equ    gfymax*bpl
  162.  
  163.       gtxmin    equ    189
  164.       gtymin    equ    254
  165.       gtxmax    equ    529
  166.       gtymax    equ    344
  167.       gtxsz        equ    gtxmax-gtxmin
  168.       gtysz        equ    gtymax-gtymin
  169.       gtxpln    equ    169
  170.       gtypln    equ    100
  171.       gtxctr    equ    (gtxmin+gtxmax)/2
  172.       gtyctr    equ    (gtymin+gtymax)/2
  173.       gtmnb        equ    gtymin*bpl+(gtxmin/8)
  174.       gtmxb        equ    gtymax*bpl
  175.  
  176. mgwins  macro    
  177. gwinf    dw    gfxmin,gfymin
  178.     dw    gfxmax,gfymax
  179.     dw    gfxsz,gfysz
  180.     dw    gfxpln,gfypln
  181.     dw    gfxctr,gfyctr
  182.     dw    gfmnb,gfmxb
  183.  
  184. gwint    dw    gtxmin,gtymin
  185.     dw    gtxmax,gtymax
  186.     dw    gtxsz,gtysz
  187.     dw    gtxpln,gtypln
  188.     dw    gtxctr,gtyctr
  189.     dw    gtmnb,gtmxb
  190. ;    8,4,631,199,622,193,300,200,320,102,4*80,199*80
  191. ;    168,254,471,344,303,95,150,100,320,297,254*80,344*80
  192.       endm
  193. ENDIF
  194.  
  195.